home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 8 / cdrt08.iso / mac / Shareware / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_137_Edit List < prev    next >
Encoding:
Text File  |  1994-12-12  |  1.6 KB  |  50 lines
  1. ItemType: WIND
  2. Rect: 167,111,547,257
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. Name: Edit List
  7. Params: i1_Text┬i7_Text
  8.  
  9. ItemType: LIST
  10. Rect: 0,0,292,146
  11. Name: List
  12. WhiteColor: -13108,-1,-1
  13. Logic: Single
  14. KeyScroll: TRUE
  15. Text: 
  16.  
  17. ItemType: PUSH
  18. Rect: 299,111,371,131
  19. Name: OK
  20. DefaultItem: TRUE
  21. AutoClose: TRUE
  22. Script: put empty into saveTo┬get wsGet(wdID,"6","Text")┬if it is "TRUE" then┬  put wsGet(wdID,"7","Text") into saveTo┬  put wsGet(wdID,"1","Text") into fld saveTo┬end if┬┬┬┬
  23.  
  24. ItemType: PUSH
  25. Rect: 295,75,375,95
  26. Name: Cancel
  27. CancelItem: TRUE
  28. AutoClose: TRUE
  29.  
  30. ItemType: PUSH
  31. Rect: 295,43,375,63
  32. Name: Delete
  33. Script: put empty into theList┬put empty into theSelect┬put wsGet(wdID,"1","Text") into theList┬put wsGet(wdID,"1","SelectionText") into theSelect┬if theSelect ¡ empty then┬  repeat with x=1 to the number of lines in theList┬    if line x of theList = theSelect then┬      delete line x of theList┬      exit repeat┬    end if┬  end repeat┬  wsSet wdID,"1","Text", theList┬  wsSet wdID,"6","Text", "TRUE"┬end if┬┬
  34.  
  35. ItemType: PUSH
  36. Rect: 295,11,375,31
  37. Name: Add
  38. Script: ask "What would you like to add to the list?"┬put empty into tmp┬put empty into theList┬put it into tmp┬if tmp ¡ empty then┬  put wsGet(wdID,"1","Text") into theList┬  put tmp&return before theList┬  put stripDup(theList) into theList┬  put FullSort(theList,"t=u","d=a") into theList┬  wsSet wdID,"1","Text", theList┬  wsSet wdID,"6","Text", "TRUE"┬end if┬
  39.  
  40. ItemType: TEXT
  41. Rect: 223,136,256,152
  42. Visible: FALSE
  43. Name: edit flag
  44. Text: TRUE
  45.  
  46. ItemType: TEXT
  47. Rect: 234,97,266,113
  48. Visible: FALSE
  49. Name: save to
  50. Text: Text